unit dVendasProd;

interface
uses
classes,
dObjects;

type
Tvendas_prod=class(TdObjects)
private
fidempresa : integer;
fidplanilha : integer;
fidproduto : integer;
fnumsequencia : integer;
fperdescprod : double;
fqtdproduto : double;
fvaldescprod : double;
fvaltotliquido : double;
fvalunitbruto : double;
public
constructor create; 
destructor destroy; override;
procedure clear;
published
 property idempresa : integer read fidempresa write fidempresa;
 property idplanilha : integer read fidplanilha write fidplanilha;
 property idproduto : integer read fidproduto write fidproduto;
 property numsequencia : integer read fnumsequencia write fnumsequencia;
 property perdescprod : double read fperdescprod write fperdescprod;
 property qtdproduto : double read fqtdproduto write fqtdproduto;
 property valdescprod : double read fvaldescprod write fvaldescprod;
 property valtotliquido : double read fvaltotliquido write fvaltotliquido;
 property valunitbruto : double read fvalunitbruto write fvalunitbruto;
end;
implementation
constructor Tvendas_prod.create;
begin
inherited;
clear;
  addPK (['idplanilha, idempresa, numsequencia']);
  Tablename := 'vendas';
end;
destructor Tvendas_prod.destroy;
begin
inherited destroy;
end;
procedure Tvendas_prod.clear;
begin
 fidempresa   :=0;
 fidplanilha  :=0;
 fidproduto   :=0;
 fnumsequencia:=0;
 fperdescprod :=0.0;
 fqtdproduto  :=0.0;
 fvaldescprod :=0.0;
 fvaltotliquido:=0.0;
 fvalunitbruto:=0.0;
end;


end.
 